Description: Draw super icon
Mapped Command: DRAW SUPER ICON <icon>
FUNCTION __DrawSuperIcon(icon,x,y,vector,replace,or,black,inverse,composite,p1,p2,p3,p4)
   local mode := 0                               // establish cartesian drawing mode
   vector  := if(vector == NIL,FALSE,vector)
   or      := if(or == NIL,FALSE,or)
   black   := if(black == NIL,FALSE,black)
   inverse := if(inverse == NIL,FALSE,inverse)
   mode    := mode + if(vector,1,0)              // vector drawing mode
   mode    := mode + if(or,8,0)                  // xor mode
   mode    := mode + if(black,32,0)              // black mode
   mode    := mode + if(inverse,64,0)            // inverse mode
   icon    := icon + 16
   do case
   case composite == TRUE
      replace := if(replace == NIL,FALSE,replace)
      mode    := mode + if(replace,4,0)          // replace mode
      drawicon(__XdGE(y-(_icnwidt_/2)),__YdGE(x+(_icnheig_/2)),mode,icon+0,__DgeColor(setcolor()))
      drawicon(__XdGE(y-(_icnwidt_/2)),__YdGE(x-(_icnheig_/2)),mode,icon+1,__DgeColor(setcolor()))
      drawicon(__XdGE(y+(_icnwidt_/2)),__YdGE(x+(_icnheig_/2)),mode,icon+2,__DgeColor(setcolor()))
      drawicon(__XdGE(y+(_icnwidt_/2)),__YdGE(x-(_icnheig_/2)),mode,icon+3,__DgeColor(setcolor()))
   case p1 != NIL
      replace := if(replace == NIL,FALSE,replace)
      mode    := mode + 4                        // replace mode
      drawicon(__XdGE(y),__YdGE(x),mode,icon+0,p1)
      drawicon(__XdGE(y),__YdGE(x),mode,icon+1,p2)
      drawicon(__XdGE(y),__YdGE(x),mode,icon+2,p3)
      drawicon(__XdGE(y),__YdGE(x),mode,icon+3,p4)
   otherwise
      replace := if(replace == NIL,FALSE,replace)
      mode    := mode + if(replace,4,0)          // replace mode
      drawicon(__XdGE(y),__YdGE(x),mode,icon,__DgeColor(setcolor()))
   endcase
RETURN(Void)